-- background: 4754 from stack: in
-- bmap block id: 5144
-- flags: 0000
-- background id: 0
-- name: About
----- HyperTalk script -----
on openCard
  set icon of background button id 7 to short name of this card
  set name of background button id 7 to short name of this card
end openCard

on openBackground
  global interactiveDemo
  put true into interactiveDemo
end openBackground

on doMenu menuItem
  lock screen
  if menuItem is "Help" then
    go to last card of this background
    unlock screen with dissolve fast
  else if menuItem is "First" then
    go to first card of this background
    unlock screen with visual wipe right
  else if menuItem is "Prev" then
    if id of first card of this background is id of this card then
      go to card (the number of cards of this bg - 2) of this bg
    else go prev
    unlock screen with visual wipe right
  else if menuItem is "Next" then
    if id of card (the number of cards of this bg - 2) of this background is id of this card then
      go to first card of this background
    else go next
    unlock screen with visual wipe left
  else if menuItem is "Last" then
    go to card (the number of cards of this bg - 2) of this bg
    unlock screen with visual wipe left
  else
    unlock screen
    pass doMenu -- OK
  end if
end doMenu

on arrowKey direction
  if direction is "Left" then
    doMenu "Prev"
  else if direction is "Right" then
    doMenu "Next"
  else if direction is "Up" then
    lock screen
    go to card "Demo Shell"
    unlock screen
  else if direction is "Down" then
    -- do nothing
  end if
end arrowKey

on grayPicture cardPict
  push card
  get the userLevel
  set the userLevel to 3
  if not cardPict then set the editBkgnd to true
  choose select tool
  doMenu "Select All"
  doMenu "Copy Picture"
  go to card short name of this background of background "Information"
  set the editBkgnd to true
  doMenu "Paste Picture"
  choose browse tool
  set the userLevel to it
end grayPicture

--on type typeText
put empty into the selection
repeat with index = 1 to the number of chars in typeText
  play boing tempo 500 "c7s"
  put char index of typeText after the selection
end repeat
--end type

on sortBackground
  lock screen
  set the cursor to watch
  repeat with i = the number of cards of this bg - 1 down to 3
    repeat with j = 2 to i - 1
      if short name of card j of this bg > short name of card j + 1 of this bg then
        go to card j of this bg
        doMenu "Cut Card"
        doMenu "Paste Card"
      end if
    end repeat
  end repeat
  unlock screen
end sortBackground


-- part 1 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=269 top=37 right=83 bottom=355
-- title width / last selected line: 0
-- icon id / first selected line: 5000 / 5000
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Mac School¨ Shell
----- HyperTalk script -----
on mouseUp
  visual iris close
  go to card short name of me
end mouseUp



-- part 2 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=420 top=294 right=330 bottom=444
-- title width / last selected line: 0
-- icon id / first selected line: 5051 / 5051
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Previous
----- HyperTalk script -----
on mouseUp
  lock screen
  set the scroll of field "text" to 0
  if the optionKey is down then
    doMenu "First"
  else
    doMenu "Prev"
  end if
  unlock screen with visual wipe right
end mouseUp



-- part 3 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=474 top=294 right=330 bottom=498
-- title width / last selected line: 0
-- icon id / first selected line: 5052 / 5052
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
  lock screen
  set the scroll of field "text" to 0
  if the optionKey is down then
    doMenu "Last"
  else
    doMenu "Next"
  end if
  unlock screen with visual wipe left
end mouseUp



-- part 4 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=440 top=113 right=149 bottom=478
-- title width / last selected line: 0
-- icon id / first selected line: 5050 / 5050
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
  visual dissolve to white
  visual dissolve
  go home
end mouseUp



-- part 5 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=10 top=110 right=135 bottom=413
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 18
-- style flags: 256
-- line height: 24
-- part name: Title


-- part 6 (field)
-- low flags: 01
-- high flags: 0007
-- rect: left=10 top=138 right=332 bottom=413
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: text


-- part 7 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=377 top=37 right=83 bottom=463
-- title width / last selected line: 0
-- icon id / first selected line: 5005 / 5005
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Course Details
----- HyperTalk script -----
on mouseUp
  lock screen
  go to background short name of me
  if the result is "No Such Card" then beep
  else unlock screen with visual zoom open
end mouseUp






-- part 8 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=418 top=168 right=214 bottom=500
-- title width / last selected line: 0
-- icon id / first selected line: 5076 / 5076
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Overview
----- HyperTalk script -----
on mouseUp
  push card
  visual iris open
  go to card (short name of this card) of background "Module Overviews"
  if the result is "No such card" then beep
end mouseUp



-- part 9 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=449 top=303 right=321 bottom=469
-- title width / last selected line: 0
-- icon id / first selected line: 5074 / 5074
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Help
----- HyperTalk script -----
on mouseUp
  lock screen
  go to last card of this background
  unlock screen with dissolve fast
end mouseUp



-- part 10 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=418 top=230 right=276 bottom=500
-- title width / last selected line: 0
-- icon id / first selected line: 5075 / 5075
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Rolling Demo
----- HyperTalk script -----
on mouseUp
  global interactiveDemo
  put false into interactiveDemo
  if the heapSpace < 140000 then
    answer "Not enough memory to run demo."
  else rollingDemo
end mouseUp